Namespace general
Public Class sysdiagrams
	Inherits Auditoria.Transaccion

	Private vName As String = ""
	Private vPrincipal_id As Integer = -1
	Private vDiagram_id As Integer = -1
	Private vVersion As Integer = -1
	Private vDefinition As String = ""

	Public Property Name() As String
		Get
			Return vName
		End Get
		Set(ByVal Value As String)
			vName = Value
		End Set
	End Property

	Public Property Principal_id() As Integer
		Get
			Return vPrincipal_id
		End Get
		Set(ByVal Value As Integer)
			vPrincipal_id = Value
		End Set
	End Property

	Public Property Diagram_id() As Integer
		Get
			Return vDiagram_id
		End Get
		Set(ByVal Value As Integer)
			vDiagram_id = Value
		End Set
	End Property

	Public Property Version() As Integer
		Get
			Return vVersion
		End Get
		Set(ByVal Value As Integer)
			vVersion = Value
		End Set
	End Property

	Public Property Definition() As String
		Get
			Return vDefinition
		End Get
		Set(ByVal Value As String)
			vDefinition = Value
		End Set
	End Property

	Sub New()
	End Sub

	Sub New(ByRef name As String, ByVal principal_id As Integer, ByVal diagram_id As Integer, ByVal version As Integer, ByVal definition As String)
		vName = Name
		vPrincipal_id = Principal_id
		vDiagram_id = Diagram_id
		vVersion = Version
		vDefinition = Definition
	End Sub

End Class



 Public Class sysdiagramsCol   
 Inherits System.Collections.CollectionBase
Private _enmSortDirection As SortDirection
Public Sub New()
_enmSortDirection = SortDirection.Asc
End Sub
Public Sub Sort(ByVal sortExpression As String, ByVal sortDirection As SortDirection)
InnerList.Sort(New Comparer(sortExpression, SortDirection))
End Sub
Public Sub Sort(ByVal sortExpression As String)
InnerList.Sort(New Comparer(sortExpression, _enmSortDirection))
If _enmSortDirection = SortDirection.Asc Then
_enmSortDirection = SortDirection.Desc
Else
_enmSortDirection = SortDirection.Asc
End If
End Sub
Public Function Add(ByVal obj As sysdiagrams) As Integer
Return MyBase.List.Add(obj)
End Function
Public ReadOnly Property sysdiagrams(ByVal Index As Integer) As sysdiagrams
Get
Return CType(MyBase.List(Index), sysdiagrams)
End Get
End Property
End Class
end namespace

